GIS & Geospatial Data Analysis (Fall 2025)
arrange()slice_sample()Functions from Base R
# A tibble: 37 × 1
value
<int>
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
# ℹ 27 more rows
Reading layer `book-challenges-state-sf' from data source
`/Users/toyuan/dohnanyi/data/book-challenges-state-sf.gpkg'
using driver `GPKG'
Simple feature collection with 51 features and 9 fields
Geometry type: MULTIPOLYGON
Dimension: XY
Bounding box: xmin: -179.1435 ymin: 18.90612 xmax: 179.7809 ymax: 71.4125
Geodetic CRS: WGS 84
paste() and paste0() functionbook_challenge_sf |>
filter(!(postal %in% c('HI', 'AK'))) |>
ggplot() +
geom_sf(
aes(fill = count),
color = 'white',
size = 0.1
) +
geom_sf_label(
aes(label = postal),
size = 2.5,
fill = 'white',
alpha = 0.7,
color = 'black'
) +
scale_fill_viridis(na.value = '#E2E2E2') +
theme_minimal() +
labs(
title = 'Book Challenges by State',
subtitle = '2000-2010'
)
plot_state_choropleth <- function(sf, col_str, plt_title) {
sf |>
filter(!(postal %in% c('HI', 'AK'))) |>
ggplot() +
geom_sf(
aes_string(fill = col_str),
color = 'white',
size = 0.1
) +
geom_sf_label(
aes(label = postal),
size = 2.5,
fill = 'white',
alpha = 0.7,
color = 'black'
) +
scale_fill_viridis(na.value = '#E2E2E2') +
theme_minimal() +
labs(
title = plt_title,
subtitle = '2000-2010'
)
}arrange() [1] "Pennsylvania: 147" "Oregon: 118"
[3] "Colorado: 80" "California: 50"
[5] "Illinois: 39" "Michigan: 34"
[7] "Virginia: 33" "Ohio: 29"
[9] "Florida: 26" "New York: 24"
[11] "Oklahoma: 23" "North Carolina: 20"
[13] "Indiana: 20" "Minnesota: 17"
[15] "South Carolina: 15" "Idaho: 14"
[17] "Vermont: 13" "Georgia: 13"
[19] "Kansas: 13" "Iowa: 13"
[21] "Kentucky: 13" "Tennessee: 13"
[23] "Arizona: 12" "Louisiana: 12"
[25] "New Jersey: 11" "Missouri: 11"
[27] "Alabama: 10" "Wisconsin: 10"
[29] "Washington: 9" "Alaska: 9"
[31] "Massachusetts: 8" "Montana: 7"
[33] "New Hampshire: 7" "North Dakota: 6"
[35] "Connecticut: 6" "Maryland: 5"
[37] "Arkansas: 5" "Wyoming: 4"
[39] "Maine: 3" "New Mexico: 3"
[41] "Rhode Island: 3" "South Dakota: 3"
[43] "West Virginia: 3" "Delaware: 2"
[45] "Nebraska: 2" "Mississippi: 1"
[47] "Utah: 1" "Texas: NA"
[49] "District of Columbia: NA" "Hawaii: NA"
[51] "Nevada: NA"
book_challenge_sf |>
arrange(political_value_index) |>
select(gn_name, count, political_value_index)| gn_name | count | political_value_index | geom |
|---|---|---|---|
| Utah | 1 | -20.2 | MULTIPOLYGON (((-111.0502 4… |
| Wyoming | 4 | -19.7 | MULTIPOLYGON (((-109.0463 4… |
| Idaho | 14 | -17.4 | MULTIPOLYGON (((-117.0382 4… |
| Oklahoma | 23 | -16.9 | MULTIPOLYGON (((-103.0002 3… |
| Nebraska | 2 | -13.5 | MULTIPOLYGON (((-104.0537 4… |
| Alaska | 9 | -13.4 | MULTIPOLYGON (((-141.0056 6… |
| Alabama | 10 | -13.2 | MULTIPOLYGON (((-87.41958 3… |
| Kansas | 13 | -11.5 | MULTIPOLYGON (((-102.0396 3… |
| North Dakota | 6 | -10.4 | MULTIPOLYGON (((-104.0476 4… |
| Kentucky | 13 | -10.4 | MULTIPOLYGON (((-89.42446 3… |
| Louisiana | 12 | -9.7 | MULTIPOLYGON (((-89.52599 3… |
| Mississippi | 1 | -9.5 | MULTIPOLYGON (((-88.40221 3… |
| South Dakota | 3 | -8.9 | MULTIPOLYGON (((-104.0567 4… |
| Arkansas | 5 | -8.8 | MULTIPOLYGON (((-90.30422 3… |
| Tennessee | 13 | -8.7 | MULTIPOLYGON (((-90.30422 3… |
| West Virginia | 3 | -7.9 | MULTIPOLYGON (((-82.58945 3… |
| South Carolina | 15 | -7.8 | MULTIPOLYGON (((-78.57316 3… |
| Montana | 7 | -7.1 | MULTIPOLYGON (((-116.0482 4… |
| Georgia | 13 | -6.8 | MULTIPOLYGON (((-80.89029 3… |
| Indiana | 20 | -6.2 | MULTIPOLYGON (((-84.80608 4… |
| Arizona | 12 | -6.1 | MULTIPOLYGON (((-111.0063 3… |
| North Carolina | 20 | -4.3 | MULTIPOLYGON (((-76.03173 3… |
| Missouri | 11 | -3.1 | MULTIPOLYGON (((-95.31725 4… |
| Florida | 26 | -1.8 | MULTIPOLYGON (((-87.44734 3… |
| Virginia | 33 | -1.7 | MULTIPOLYGON (((-76.01325 3… |
| Ohio | 29 | -0.7 | MULTIPOLYGON (((-80.52023 4… |
| Colorado | 80 | -0.2 | MULTIPOLYGON (((-109.0463 4… |
| Iowa | 13 | 1.0 | MULTIPOLYGON (((-96.48266 4… |
| New Hampshire | 7 | 1.6 | MULTIPOLYGON (((-71.50585 4… |
| Pennsylvania | 147 | 2.0 | MULTIPOLYGON (((-79.76301 4… |
| Minnesota | 17 | 2.3 | MULTIPOLYGON (((-97.22609 4… |
| New Mexico | 3 | 2.4 | MULTIPOLYGON (((-108.1375 3… |
| Wisconsin | 10 | 2.4 | MULTIPOLYGON (((-87.80425 4… |
| Michigan | 34 | 3.8 | MULTIPOLYGON (((-84.4913 46… |
| Oregon | 118 | 4.0 | MULTIPOLYGON (((-124.4924 4… |
| New Jersey | 11 | 4.4 | MULTIPOLYGON (((-75.54133 3… |
| Washington | 9 | 5.0 | MULTIPOLYGON (((-122.753 48… |
| Maine | 3 | 5.5 | MULTIPOLYGON (((-71.08495 4… |
| Delaware | 2 | 7.0 | MULTIPOLYGON (((-75.05809 3… |
| Connecticut | 6 | 7.1 | MULTIPOLYGON (((-73.6417 41… |
| California | 50 | 7.4 | MULTIPOLYGON (((-114.7243 3… |
| Illinois | 39 | 7.7 | MULTIPOLYGON (((-89.1237 36… |
| Maryland | 5 | 8.5 | MULTIPOLYGON (((-75.64786 3… |
| New York | 24 | 10.2 | MULTIPOLYGON (((-79.06523 4… |
| Rhode Island | 3 | 11.2 | MULTIPOLYGON (((-71.23686 4… |
| Massachusetts | 8 | 11.7 | MULTIPOLYGON (((-71.19396 4… |
| Vermont | 13 | 13.4 | MULTIPOLYGON (((-73.35134 4… |
| Texas | NA | NA | MULTIPOLYGON (((-103.3115 2… |
| District of Columbia | NA | NA | MULTIPOLYGON (((-77.02293 3… |
| Hawaii | NA | NA | MULTIPOLYGON (((-154.8996 1… |
| Nevada | NA | NA | MULTIPOLYGON (((-114.0425 4… |
| title | book_id | author | date | year | removed | explicit | antifamily | occult | language | lgbtq | violent | state | political_value_index | median_income | hs_grad_rate | college_grad_rate |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Go and Come Back | 721 | Abelove, Joan | 2000-06-18 | 2000 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | WV | -7.9 | -7290.0 | -4.361958 | -9.2237299 |
| Finding Our Way–The Teen Girl Survival Guide | 695 | Abner, Allison | 2002-05-21 | 2002 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | AZ | -6.1 | 3490.5 | 1.438042 | -0.5237299 |
| Death Blossoms | 522 | Abu-Jamal, Mumia | 2005-07-03 | 2005 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | OR | 4.0 | 1274.5 | 5.538042 | 1.0762701 |
| Tijuana Bibles | 1811 | Adelman, Bob | 2000-06-29 | 2000 | 0 | 1 | 0 | 0 | 0 | 0 | 1 | OR | 4.0 | 1274.5 | 5.538042 | 1.0762701 |
| Art for Lovers | 160 | Adler, Sabine | 2005-04-08 | 2005 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | OR | 4.0 | 1274.5 | 5.538042 | 1.0762701 |
| Psychic Academy Series | 1484 | Aki, Katsu | 2008-06-07 | 2008 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | VA | -1.7 | 11296.0 | 1.938042 | 5.4762701 |
| Monkey High Vol. 3 | 1277 | Akira, Shouko | 2009-05-06 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | MI | 3.8 | 2966.0 | 3.838042 | -2.2237299 |
| Absolutely True Diary of a Part-Time Indian, The | 69 | Alexie, Sherman | 2008-10-02 | 2008 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | IA | 1.0 | 3921.5 | 6.538042 | -2.8237299 |
| Absolutely True Diary of a Part-Time Indian, The | 69 | Alexie, Sherman | 2009-05-04 | 2009 | 0 | 1 | 0 | 0 | 1 | 0 | 0 | IL | 7.7 | 6489.5 | 1.838042 | 2.0762701 |
| Absolutely True Diary of a Part-Time Indian, The | 69 | Alexie, Sherman | 2010-05-12 | 2010 | 1 | 0 | 0 | 0 | 1 | 0 | 1 | MO | -3.1 | 1279.5 | 1.738042 | -2.4237299 |
slice_sample()| title | book_id | author | date | year | removed | explicit | antifamily | occult | language | lgbtq | violent | state | political_value_index | median_income | hs_grad_rate | college_grad_rate |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Joy of Gay Sex, The | 1054 | Silverstein, Dr. Charles and Felice Picano | 2009-01-02 | 2009 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | KS | -11.5 | 144.5 | 6.4380421 | 1.7762701 |
| Yu Yu Hakusho (series) | 2057 | Togashi, Yoshihiro | 2008-11-14 | 2008 | 0 | 1 | 0 | 0 | 0 | 0 | 1 | AZ | -6.1 | 3490.5 | 1.4380421 | -0.5237299 |
| Tenderness | 1772 | Cormier, Robert | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2.0 | 4218.0 | 2.3380421 | -1.6237299 |
| Little Giant Book of Whodunits, The | 1147 | Conrad, Hy | 2008-01-04 | 2008 | 0 | 0 | 1 | 0 | 1 | 0 | 1 | NY | 10.2 | 5007.5 | -0.4619579 | 3.3762701 |
| Killing Johnny Fry | 1080 | Mosely, Walter | 2008-04-02 | 2008 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | OK | -16.9 | -3087.5 | 1.0380421 | -3.7237299 |
| Message Bible | 1251 | Peterson, Eugene H | 2010-05-26 | 2010 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | NC | -4.3 | -310.0 | -1.4619579 | -1.5237299 |
| Slaughterhouse-Five | 1643 | Vonnegut, Kurt | 2001-04-25 | 2001 | 0 | 1 | 0 | 0 | 1 | 0 | 0 | TN | -8.7 | -2995.5 | -3.6619579 | -4.4237299 |
| Starplace, The | 1699 | Grove, Vicki | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2.0 | 4218.0 | 2.3380421 | -1.6237299 |
| Transparent: Love, Family, and Living the T with Transgender Teenagers | 1834 | Beam, Chris | 2009-08-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | CA | 7.4 | 10119.0 | -2.7619579 | 2.5762701 |
| Villages | 1903 | Updike, John | 2006-07-27 | 2006 | 0 | 1 | 0 | 0 | 1 | 0 | 0 | ID | -17.4 | 3194.0 | 5.1380421 | -2.3237299 |
| title | book_id | author | date | year | removed | explicit | antifamily | occult | language | lgbtq | violent | state | political_value_index | median_income | hs_grad_rate | college_grad_rate |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| This Is What I Did | 1800 | Ellis, Ann Dee | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Diary of a Groupie | 539 | Tyree, Omar | 2005-09-24 | 2005 | 0 | 1 | 0 | 0 | 1 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Things They Carried, The | 1792 | O’Brein, Tim | 2001-04-25 | 2001 | 0 | 1 | 0 | 0 | 1 | 0 | 1 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| What Happened to Cass McBride? | 1944 | Giles, Gail | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Prey | 1476 | McDaniel, Lurlene | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Like Sisters on the Homefront | 1139 | Williams-Garcia, Rita | 2000-08-28 | 2000 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Martian Chronicles, The | 1237 | Bradbury, Ray | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Impulse | 981 | Hopkins, Ellen | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Lucky | 1199 | Sebold, Alice | 2009-11-09 | 2009 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |
| Danse Macabre | 503 | Hamilton, Laurell K. | 2007-05-23 | 2007 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | PA | 2 | 4218 | 2.338042 | -1.62373 |